<!--#Include File="LoginCheck.asp"-->
<!--#Include File="Conn.asp"-->
<%
	Dim PKID
	PKID = Request("id")

	set cmdObject = Server.CreateObject("ADODB.Command")
    with cmdObject
        .ActiveConnection = Conn         
        .CommandText      = "[GetFormListById-02]"  
        .CommandType      = 4            
        .Prepared         = true
	    .Parameters.append .CreateParameter("@PKID ",200,1,50,PKID)
        set rs = .Execute
    end with
    set cmdObject=Nothing
    

	function chinese2unicode(Str) 
		for i=1 to len(Str) 
		Str_one=Mid(Str,i,1) 
		Str_unicode=Str_unicode&chr(38) 
		Str_unicode=Str_unicode&chr(35) 
		Str_unicode=Str_unicode&chr(120) 
		Str_unicode=Str_unicode& Hex(ascw(Str_one)) 
		Str_unicode=Str_unicode&chr(59) 
		next 
		chinese2unicode = Str_unicode 
	end function

%>
<div class="FormDetail">
	<%
		If rs.BOF And rs.EOF Then
		
		Else
		%>
        	<div style="padding:5px; overflow:hidden; position:relative;">
                <span style="float:left;display:block; width:220px; line-height:15px;">姓　　名：<%=chinese2unicode(rs("Name"))%></span>
                <span style="float:left;display:block; width:140px; line-height:15px;">城　　市：<%=chinese2unicode(rs("City"))%></span>
                <span style="float:left;display:block; width:100px; line-height:15px;">编　　号：<%=rs("PKID")%></span><br />
                <span style="float:left;display:block; width:220px; line-height:15px;">电子邮箱：<%=rs("Email")%></span>
                <span style="float:left;display:block; width:200px; line-height:15px;">联系电话：<%=rs("Tel")%></span>
                <span style="float:left;display:block; width:40px; line-height:15px; cursor:pointer; "><ins id="print">打印</ins></span>
            </div>
            
            
            <dl>
            	<dt>
              		1、您的性别
                </dt>
                <dd id="Sex">
                	<label <%If rs("Sex") = "1" Then Response.Write("class='select'")%> >男</label>
                    <label <%If rs("Sex") = "2" Then Response.Write("class='select'")%> >女</label>
                </dd>
                
                
                <dt>2、您的年龄</dt>
                <dd>
                    <label <%If rs("Age") = "1" Then Response.Write("class='select'")%> >25以下</label>
                    <label <%If rs("Age") = "2" Then Response.Write("class='select'")%> >25-35岁</label>
                    <label <%If rs("Age") = "3" Then Response.Write("class='select'")%> >35-45岁</label>
                    <label <%If rs("Age") = "4" Then Response.Write("class='select'")%> >45岁以上</label>
            
            	</dd>
                <dt>
                	3、您的月收入
                </dt>
                <dd>
                    <label <%If rs("Revenue") = "1" Then Response.Write("class='select'")%> >5000以下</label>
                    <label <%If rs("Revenue") = "2" Then Response.Write("class='select'")%> >5000至10000</label>
                    <label <%If rs("Revenue") = "3" Then Response.Write("class='select'")%> >10000以上</label>
            	</dd>
                <dt>
                	4、最想拥有的手表类型
                </dt>
                <dd>
                    <label <%If rs("Watch") = "1" Then Response.Write("class='select'")%> >户外系列</label>
                    <label <%If rs("Watch") = "2" Then Response.Write("class='select'")%> >锻炼心率系列</label>
                    <label <%If rs("Watch") = "3" Then Response.Write("class='select'")%> >潜水系列</label>
                    <label <%If rs("Watch") = "4" Then Response.Write("class='select'")%> >高尔夫系列</label>
            	</dd>
                <dt>
                	5、您喜欢的运动
                </dt>
                <dd>
                    <label <%If rs("Sports") = "1" Then Response.Write("class='select'")%> >自行车</label>
                    <label <%If rs("Sports") = "2" Then Response.Write("class='select'")%> >登山</label>
                    <label <%If rs("Sports") = "3" Then Response.Write("class='select'")%> >跑步</label>
                    <label <%If rs("Sports") = "4" Then Response.Write("class='select'")%> >高尔夫</label>
                    <label <%If rs("Sports") = "5" Then Response.Write("class='select'")%> >滑雪</label>
                    <label <%If rs("Sports") = "6" Then Response.Write("class='select'")%> >游泳</label>
                    <label <%If rs("Sports") = "7" Then Response.Write("class='select'")%> >羽毛球</label>
                    <label <%If rs("Sports") = "8" Then Response.Write("class='select'")%> >网球</label>
            	</dd>
                <dt>
                	是否接收邮件
                </dt>
                <dd>
                    <label <%If rs("GetMail") = "1" Then Response.Write("class='select'")%> >是</label>
                    <label <%If rs("GetMail") = "2" Then Response.Write("class='select'")%> >否</label>
            	</dd>
                
            </dl>
        <%
		End If
	%>
</div>
